home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Graphisoft / US English / ArchiCAD / ArchiCAD 4.5-68K / ArchiCAD Library / 08 Doors & Windows / Window Macros / round_grid < prev    next >
Encoding:
Text File  |  1994-03-24  |  541 b   |  48 lines  |  [TEXT/GSAC]
  1. !round_grid  /modified 2/16/94***VL/
  2. !internal macro: -
  3. !dx=a,dy=b,z=grid width,d=frame thickness
  4.  
  5. addy b/2
  6.  
  7. let i=a/2
  8. let j=b/2
  9. let k=c
  10. let l=0.5*i-k
  11. let m=(j/i)*sqr(i*i-l*l)
  12. let n=0.5*j+k
  13. let o=(i/j)*sqr(j*j-n*n)
  14.  
  15. if (i*i-l*l)<0 then 20
  16.  
  17. prism_ 4, d/6,
  18. 0.5*i,0.866*j,8,
  19. l,m,15,
  20. l,-m,8,
  21. 0.5*i,-0.866*j,15
  22.  
  23. prism_ 4, d/6,
  24. 0.866*i,0.5*j,8,
  25. o,n,15,
  26. -o,n,8,
  27. -0.866*i,0.5*j,15
  28.  
  29.  
  30. mulx -1
  31.  
  32. prism_ 4, d/6,
  33. 0.5*i,0.866*j,8,
  34. l,m,15,
  35. l,-m,8,
  36. 0.5*i,-0.866*j,15
  37.  
  38. muly -1
  39.  
  40. prism_ 4,d/6,
  41. 0.866*i,0.5*j,8,
  42. o,n,15,
  43. -o,n,8,
  44. -0.866*i,0.5*j,15
  45.  
  46. 20:del top
  47. end
  48.